CAAPlanetPerihelionAphelion_EarthK <-
function(Year){
.Call("CAAPlanetPerihelionAphelion_EarthK", Year)
}
